5200 FIELD #1,2 AS W1$(1),2 AS W1$(2),2 AS W1$(3),2 AS W1$(4),2 AS W1$(5),2 AS W1$(6),2 AS W1$(7),2 AS W1$(8),2 AS W1$(9),2 AS W1$(10),2 AS W1$(11),2 AS W1$(12),101 AS Y5$
5250 FIELD #1,24 AS Y4$,2 AS W2$(1),2 AS W2$(2),2 AS W2$(3),2 AS W2$(4),2 AS W2$(5),2 AS W2$(6),2 AS W2$(7),2 AS W2$(8),2 AS W2$(9),2 AS W2$(10),2 AS W2$(11),2 AS W2$(12),2 AS KG$, 65 AS DF$
5300 LR=1
5350 DL=0
5400 GET #1,LR
5450 GZ=CVI(KG$)
5500 GC(GZ)=GC(GZ)+1
5550 IF EOF(1) GOTO 5800
5600 WD(2,1)=CVI(W2$(1))
5650 IF WD(2,1)=99 THEN DL=DL+1
5700 LR=LR+1
5750 GOTO 5400
5800 LR=LR-1
5850 GOTO 6500
5900 REM ************ RING BELL CODE
5950 PRINT CHR$(7);CHR$(7);
6000 RETURN
6050 REM ************ CLEAR SCREEN CODE
6100 PRINT CHR$(26)
6150 RETURN
6200 REM ************ CURSOR UP SCREEN CODE
6250 PRINT CHR$(11);
6300 RETURN
6350 REM ************ CURSOR DOWN SCREEN CODE
6400 PRINT CHR$(10);
6450 RETURN
6500 REM ************ DISPLAY MENU
6550 REM ************* RESET SOME VARIABLES BEFORE MENU DISPLAY
6600 LM$="N"
6650 SX$=""
6700 TX=0
6750 SU=0
6800 GOSUB 6050
6850 PRINT TAB(22);"CURRENTLY ";LR-DL;" VOCABULARY WORDS ON FILE"